home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00067.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  865 b   |  40 lines
  1. on exitFrame
  2.   global loadNext, whatSpeed, whatFactor, frameLoop
  3.   if (frameLoop = 0) and (loadNext = 1) then
  4.     unLoad(152, 164)
  5.   end if
  6.   if (frameLoop = 0) and (loadNext = 0) then
  7.     unLoad(144, 164)
  8.   end if
  9.   if frameLoop = 0 then
  10.     set whatSpeed to whatSpeed + 60
  11.   end if
  12.   if (ramNeeded(167, 182) < (the freeBlock - 1000)) and (frameLoop = 0) then
  13.     if frameLoop = 0 then
  14.       preLoad(167, 182)
  15.     end if
  16.     set loadNext to 0
  17.     if the timer < whatSpeed then
  18.       set frameLoop to 1
  19.       go(the frame)
  20.     else
  21.       set frameLoop to 0
  22.       resetTimer()
  23.       go(#next)
  24.     end if
  25.   else
  26.     if frameLoop = 0 then
  27.       preLoad(167, 172)
  28.     end if
  29.     set loadNext to 1
  30.     if the timer < whatSpeed then
  31.       set frameLoop to 1
  32.       go(the frame)
  33.     else
  34.       set frameLoop to 0
  35.       resetTimer()
  36.       go(#next)
  37.     end if
  38.   end if
  39. end
  40.